From: Stephen Berman Date: Mon, 16 Feb 2009 00:38:42 +0000 (+0100) Subject: * calendar/todos.el (todos-list-categories): Fix typos. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~3723 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=fffe59491fe63bae731ec613c4aa5ad8344459c9;p=emacs.git * calendar/todos.el (todos-list-categories): Fix typos. (todos-show): Ensure file is in todos-mode. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3e8e3d71c66..4739407547b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-09-12 Stephen Berman + + * calendar/todos.el (todos-list-categories): Fix typos. + (todos-show): Ensure file is in todos-mode. + 2012-09-12 Stephen Berman * calendar/todos.el (todos-header): Remove defvar. diff --git a/lisp/calendar/todos.el b/lisp/calendar/todos.el index 9e0cf90a048..1689c80d820 100644 --- a/lisp/calendar/todos.el +++ b/lisp/calendar/todos.el @@ -800,7 +800,7 @@ Number of entries for each category is given by `todos-print-priorities'." (widen) (goto-char (point-max)) (while (re-search-backward - (concat "^" (regexp-quote (concat todo-prefix todo-category-beg)) + (concat "^" (regexp-quote (concat todos-prefix todos-category-beg)) "\\(.*\\)\n") (point-min) t) (push (match-string-no-properties 1) categories))))) @@ -950,6 +950,7 @@ Number of entries for each category is given by `todos-print-priorities'." (equal (expand-file-name todos-file-do) bufname))) (find-file todos-file-do) (todos-initial-setup)) + (unless (eq major-mode 'todos-mode) (todos-mode)) (unless todos-categories (setq todos-categories (todos-list-categories))) ;; (beginning-of-line)